Imports System.Data.SqlClient
Public Class DatosPersonales

    Public Function GnerarDatPer(ByVal CodRS, ByVal NomApe, ByVal FecDeNac, ByVal CUI, ByVal Rel, ByVal Doc)

        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, _
        "DatoPersonalGenerar", New SqlParameter("@CodRS", CodRS), New SqlParameter("@NomApe", NomApe), _
        New SqlParameter("@FecDeNac", FecDeNac), New SqlParameter("@CUI", CUI), New SqlParameter("@Rel", Rel), _
        New SqlParameter("@Doc", Doc))
        Return DS
    End Function

End Class
